4D Doc Center : CT AREA TO FIELD

4D Chart v13

CT AREA TO FIELD


CT AREA TO FIELD ( area ; alcance ; numTabla ; numCampo ; modoGuard )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Chart
alcance	Entero largo	Alcance del comando -2 = Documento, -1=Todo, 0 = Objetos seleccionados >0 = ID del objeto
numTabla	Entero	Número de tabla
numCampo	Entero	Número de campo
modoGuard	Entero	Método de guardar el contenido de área 1 = Imagen únicamente 2 = Datos únicamente 3 = Imagen y datos -1 = No cambiar

Descripción

El comando CT AREA TO FIELD copia el contenido de area en el campo BLOB o Imagen especificado por tabla y campo.

CT AREA TO FIELD es útil para almacenar objetos en un campo de una tabla relacionada o para almacenar sólo objetos específicos. CT AREA TO FIELD simplemente asigna los objetos al campo. El registro en la tabla aún debe guardarse.

alcance controla lo que se copia.

El parámetro opcional modoGuard determina el modo de guardar el documento en el área 4D Chart.

Si modoGuard es igual a 1, sólo se guarda la imagen (PICT). Los objetos ya no se pueden manipular de forma individual.
Si modoGuard es igual a 2, sólo se guardan los datos relativos a los objetos en el área 4D Chart. La imagen es reconstruida posteriormente con la información de los datos guardados. Esta opción de guardar es más rápida y usa la menor cantidad de memoria. Si no hay suficiente memoria para la opción de guardar elegida, aparece una caja de diálogo que le permite elegir otra opción.
Si modoGuard es igual a 3, se guardan la imagen y los datos internos utilizados para reconstruir la imagen. Esta es la forma normal de guardar un documento.

Ejemplo

Este ejemplo crea un registro relacionado para un objeto contenido en area.

  `Crear un registro para guardar el objeto

 CREATE RECORD([Objetos])

  `Asignar el valor relativo

 [Objetos]Key:=[Graficos]Nombre

  `Obtener el ID del objeto

 $Temp:=CT Get ID(Area;-1;3)

  `Copiar el objeto en el registro

 CT AREA TO FIELD(Area;$Temp;3;2;1)

  `Guardar el registro

 SAVE RECORD([Objetos])